1 REM.*****************************
2 REM.**      BEL RENUMBER       **
3 REM.**                         **
4 REM.** BEL RENUMBERING PROGRAM **
5 REM.*****************************
12 AT=679:FOR N=ATTOAT+22:READM:POKEN,M:NEXT
14 DATA32,180,2,132,251,32,180,2
16 DATA 166,251,76,240,255,32,253,174
17 PRINT"[147]":POKE53280,1 :POKE53281,1 :POKE646,1:PRINT CHR$(14)
18 DATA 32,158,173,32,170,177,96
22 SYSAT,0,1:PRINT"    ********************************  "
23 SYSAT,1,1:PRINT"---------------------------------------"
24 SYSAT,2,1:PRINT"  [200][201][204][204][211] 64 [199][210][207][213][208] [160][210][197][206][213][205][194][197][210][201][206][199][160][208][210][207][199][210][193][205]  "
26 SYSAT,3,1:PRINT"---------------------------------------"
28 SYSAT,4,1:PRINT"[204]OAD & RUN THE PROGRAM AND WAIT WHILST"
29 SYSAT,5,1:PRINT"IT SETS UP THE ROUTINES."
30 SYSAT,7,1:PRINT"[197]NTER 'NEW' AND PRESS RETURN."
32 SYSAT,9,1:PRINT"[204]OAD THE PROGRAM TO BE RENUMBERED AND"
33 SYSAT,10,1:PRINT"THEN TYPE [211][217][211]50505,L,[201]"
34 SYSAT,12,1:PRINT" L = THE LINE NUMBER TO START AT."
35 SYSAT,13,1:PRINT" [201] = INCREMENT/STEP OF LINE NUMBERS."
36 SYSAT,15,1:PRINT"[198]OR EXAMPLE:[211][217][211]50505,10,5 WILL RENUMBER"
37 SYSAT,16,1:PRINT"YOUR PROGRAM STARTING WITH LINE [206]O.10 &"
38 SYSAT,17,1:PRINT"COUNTING FROM THEN ON IN STEPS OF 5."
39 SYSAT,18,1:PRINT"---------------------------------------"
40 SYSAT,20,9 :PRINT"[208]LEASE WAIT WHILE [201] LOAD "
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 REM BEL SOFTWARE COMPUTING  1986
200 REM RENUMBER SYS50505 ,START,STEP
300 I=50505:T=0
400 READA:IFA=-1THEN700
500 POKEI,A:I=I+1
600 T=T+A:GOTO400
700 IFT<>52549THENPRINT"CHECKSUM ERROR":END
800 IFI<>50928THENPRINT"NUMBER OF VALUE ERROE":END
900 PRINT"[147]  [194]EL [211]OFTWARE [210]ENUMBERING [208]ROGRAM "
1000 PRINT"   USE SYS 50505,START,STEP"
1100 PRINT"   TO RENUMBER PROGRAM"
1150 PRINT"   LOAD YOUR PROGRAM TO RENUMBER NOW"
1200 END
1300 DATA32,253,174,32,107,169,165
1400 DATA20,133,53,165,21,133,54
1500 DATA32,253,174,32,107,169,165
1600 DATA20,133,49,165,21,133,50
1700 DATA32,142,166,32,201,198,32
1800 DATA201,198,208,33,32,2,198
1900 DATA32,201,198,32,201,198,208
2000 DATA3,76,212,198,32,201,198
2100 DATA165,99,145,122,32,201,198
2200 DATA165,98,145,122,32,13,198
2300 DATA240,226,32,201,198,32,201
2400 DATA198,32,201,198,201,34,208
2500 DATA11,32,201,198,240,197,201
2600 DATA34,208,247,240,238,170,240
2700 DATA188,16,233,162,4,221,235
2800 DATA198,240,5,202,208,248,240
2900 DATA221,165,122,133,59,165,123
3000 DATA133,60,32,115,0,176,211
3100 DATA32,107,169,32,32,198,165
3200 DATA60,133,123,165,59,133,122
3300 DATA160,0,162,0,189,0,1
3400 DATA240,17,72,32,115,0,144
3500 DATA3,32,82,198,104,160,0
3600 DATA145,122,232,208,234,32,115
3700 DATA0,176,8,32,97,198,32
3800 DATA121,0,144,248,201,44,240
3900 DATA186,208,152,165,53,133,99
4000 DATA165,54,133,98,76,142,166
4100 DATA165,99,24,101,49,133,99
4200 DATA165,98,101,50,133,98,32
4300 DATA201,198,208,251,96,32,2
4400 DATA198,32,201,198,32,201,198
4500 DATA208,8,169,255,133,99,133
4600 DATA98,48,14,32,201,198,197
4700 DATA20,208,16,32,201,198,197
4800 DATA21,208,12,162,144,56,32
4900 DATA73,188,76,223,189,32,201
5000 DATA198,32,13,198,240,209,32
5100 DATA114,198,230,251,32,165,198
5200 DATA230,45,208,2,230,46,96
5300 DATA32,114,198,198,251,32,141
5400 DATA198,165,45,208,2,198,46
5500 DATA198,45,96,32,124,198,160
5600 DATA0,132,17,132,251,96,165
5700 DATA122,133,34,165,123,133,35
5800 DATA165,45,133,36,165,46,133
5900 DATA37,96,164,17,200,177,34
6000 DATA164,251,200,145,34,32,190
6100 DATA198,208,1,96,230,34,208
6200 DATA236,230,35,208,232,164,17
6300 DATA177,36,164,251,145,36,32
6400 DATA190,198,208,1,96,165,36
6500 DATA208,2,198,37,198,36,76
6600 DATA165,198,165,34,197,36,208
6700 DATA4,165,35,197,37,96,160
6800 DATA0,230,122,208,2,230,123
6900 DATA177,122,96,32,51,165,165
7000 DATA34,166,35,24,105,2,133
7100 DATA45,144,1,232,134,46,32
7200 DATA89,166,76,116,164,0,137
7300 DATA138,141,167,-1